;<lemma>
;  <title>ch7_conc.21</title>
;  <origin>ch7_conc | conc_2 | Writer_1/inv7/INV</origin>
(benchmark ch7_conc_21
;  <theories>
;    <theory name="linear_order_int"/>
;    <theory name="basic_set"/>
;  </theories>
  :logic AUFLIA
;  <typenv>
;    <variable name="w" type="Int"/>
;  </typenv>
  :extrafuns ((w Int))
  :extramacros (
		 (subseteq
		   (lambda (?p ('t boolean)) (?q ('t boolean)) .
		     (forall (?x 't). 
		       (implies (?p ?x) (?q ?x)))))
		 (range (lambda (?i1 Int) (?i2 Int) .
			  (lambda (?i Int) .
			    (and (<= ?i1 ?i) (<= ?i ?i2)))))
		 )
; <goal>1 .. w <: 1 .. w+1</goal>
  :formula
  (not
      (subseteq (range 1 w) (range 1 (+ w 1)))
    )
)
; </lemma>
